home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / bbs / cnet5demo.lha / cnet / ircrexx / away.rexx < prev    next >
OS/2 REXX Batch file  |  1999-03-23  |  301b  |  15 lines
  1. /* ORC - sets the user away with channel message.       */
  2. options results
  3. parse arg orcport a1
  4. a1 = trim(a1)
  5.  
  6. if show('P', orcport) then do
  7.   address value orcport
  8.     if length(a1) > 0 then
  9.       cnetirccmd '/me is AWAY -- 'a1
  10.     else
  11.       cnetirccmd '/me is BACK.'
  12.     cnetirccmd '/away 'a1
  13. end
  14.  
  15.